VERSION 5.00
Begin VB.Form frmPreview 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Preview Disk"
   ClientHeight    =   12195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   14520
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   12195
   ScaleWidth      =   14520
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdLaunchViewer 
      Caption         =   "cmdLaunchViewer"
      Height          =   735
      Left            =   840
      TabIndex        =   26
      Top             =   10440
      Width           =   1335
   End
   Begin VB.Frame fraSpecSect 
      Caption         =   "Spec Sect Information"
      Height          =   5295
      Left            =   5160
      TabIndex        =   22
      Top             =   6000
      Visible         =   0   'False
      Width           =   9855
      Begin VB.CommandButton cmdCancelSpecSect 
         Caption         =   "Cancel"
         Height          =   735
         Left            =   5040
         Picture         =   "frmPreview.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   25
         Top             =   4080
         Width           =   2055
      End
      Begin VB.CommandButton cmdAcceptSpecSect 
         Caption         =   "Accept"
         Height          =   735
         Left            =   2520
         Picture         =   "frmPreview.frx":030A
         Style           =   1  'Graphical
         TabIndex        =   24
         Top             =   4080
         Width           =   2055
      End
      Begin VB.ListBox lstSpecSect 
         BeginProperty Font 
            Name            =   "Courier New"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   3420
         Left            =   240
         TabIndex        =   23
         Top             =   360
         Width           =   8895
      End
      Begin VB.Data dtaSpecSect 
         Caption         =   "dtaSpecSec"
         Connect         =   "Access"
         DatabaseName    =   ""
         DefaultCursorType=   0  'DefaultCursor
         DefaultType     =   2  'UseODBC
         Exclusive       =   0   'False
         Height          =   375
         Left            =   120
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   ""
         Top             =   3960
         Visible         =   0   'False
         Width           =   2295
      End
   End
   Begin VB.ListBox lstMaxLength 
      Height          =   3570
      Left            =   13800
      TabIndex        =   20
      Top             =   1080
      Width           =   1095
   End
   Begin VB.Frame fraChangeAttributes 
      BackColor       =   &H00404040&
      BorderStyle     =   0  'None
      Height          =   2535
      Left            =   720
      TabIndex        =   14
      Top             =   6720
      Width           =   3855
      Begin VB.Frame fraChangeAttributes2 
         BorderStyle     =   0  'None
         Height          =   2295
         Left            =   120
         TabIndex        =   15
         Top             =   120
         Width           =   3615
         Begin VB.CommandButton cmdSpecSectBrowse 
            Caption         =   "..."
            Height          =   255
            Left            =   2280
            TabIndex        =   21
            Top             =   960
            Visible         =   0   'False
            Width           =   375
         End
         Begin VB.TextBox txtAttributeChange 
            Height          =   375
            Left            =   240
            TabIndex        =   18
            Top             =   480
            Width           =   3135
         End
         Begin VB.CommandButton cmdChangeAccept 
            Caption         =   "Accept"
            Height          =   855
            Left            =   240
            Picture         =   "frmPreview.frx":0614
            Style           =   1  'Graphical
            TabIndex        =   17
            Top             =   1200
            Width           =   1455
         End
         Begin VB.CommandButton cmdChangeCancel 
            Caption         =   "Cancel"
            Height          =   855
            Left            =   1920
            Picture         =   "frmPreview.frx":091E
            Style           =   1  'Graphical
            TabIndex        =   16
            Top             =   1200
            Width           =   1455
         End
         Begin VB.Label lblAttributeChange 
            Caption         =   "lblAttributeChange"
            Height          =   255
            Left            =   240
            TabIndex        =   19
            Top             =   240
            Width           =   1575
         End
      End
   End
   Begin VB.CommandButton cmdScheduler 
      Caption         =   "Schedule Imports"
      Height          =   975
      Left            =   3600
      Picture         =   "frmPreview.frx":0A68
      Style           =   1  'Graphical
      TabIndex        =   13
      Top             =   4320
      Width           =   1455
   End
   Begin VB.CommandButton cmdShowDetails 
      Caption         =   "Show Details"
      Height          =   975
      Left            =   5640
      Picture         =   "frmPreview.frx":0EAA
      Style           =   1  'Graphical
      TabIndex        =   12
      Top             =   6240
      Width           =   1455
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Close"
      Height          =   975
      Left            =   8280
      Picture         =   "frmPreview.frx":11B4
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   4320
      Width           =   1455
   End
   Begin VB.CommandButton cmdViewPages 
      Caption         =   "View Pages"
      Height          =   975
      Left            =   6720
      Picture         =   "frmPreview.frx":14BE
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   4320
      Width           =   1455
   End
   Begin VB.CommandButton cmdChangeAttributes 
      Caption         =   "Change Attribute"
      Height          =   975
      Left            =   5160
      Picture         =   "frmPreview.frx":1900
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   4320
      Width           =   1455
   End
   Begin VB.ListBox lstAttributes 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3840
      Left            =   1800
      TabIndex        =   2
      Top             =   360
      Width           =   6015
   End
   Begin VB.ListBox lstAttributeValue 
      Height          =   3570
      Left            =   12360
      TabIndex        =   8
      Top             =   1080
      Width           =   1455
   End
   Begin VB.ListBox lstColumnName 
      Height          =   3570
      Left            =   11160
      TabIndex        =   7
      Top             =   1080
      Width           =   1575
   End
   Begin VB.ListBox lstHumanName 
      Height          =   3570
      Left            =   9960
      TabIndex        =   6
      Top             =   1080
      Width           =   1695
   End
   Begin VB.Data dtaImages 
      Caption         =   "dtaImages"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   2760
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3480
      Width           =   3615
   End
   Begin VB.Data dtaDatabase 
      Caption         =   "dtaDatabase"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   2760
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3120
      Width           =   3615
   End
   Begin VB.ListBox lstPages 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3840
      Left            =   7920
      MultiSelect     =   2  'Extended
      TabIndex        =   5
      Top             =   360
      Width           =   1815
   End
   Begin VB.ListBox lstDocuments 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3840
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   1575
   End
   Begin VB.Label Label3 
      Caption         =   "Pages"
      Height          =   255
      Left            =   7920
      TabIndex        =   4
      Top             =   120
      Width           =   1455
   End
   Begin VB.Label Label2 
      Caption         =   "Attributes"
      Height          =   255
      Left            =   1800
      TabIndex        =   3
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "Documents"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
End
Attribute VB_Name = "frmPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAcceptSpecSect_Click()

Dim x As Integer
Dim y As Integer
Dim SpecNumber As String
Dim TxtboxIndexNumber As Integer

Do Until x = lstSpecSect.ListCount
    If lstSpecSect.Selected(x) = True Then SpecNumber = Trim(Left(lstSpecSect.Text, 9))
    x = x + 1
Loop

If Len(SpecNumber) = 0 Then
    MsgBox "Please select an item from the list above or click cancel to exit this screen."
    Exit Sub
End If

txtAttributeChange.Text = SpecNumber

cmdCancelSpecSect_Click

End Sub

Private Sub cmdCancelSpecSect_Click()
fraSpecSect.Visible = False
End Sub

Private Sub cmdChangeAccept_Click()

txtAttributeChange.Text = Trim(txtAttributeChange.Text)

If Len(txtAttributeChange.Text) = 0 Then
    txtAttributeChange.Text = " "
    GoTo EnteredNothing
End If


Dim y As Integer
Dim DateChecker As Boolean
DateChecker = False

y = 0
y = InStr(1, lblAttributeChange.Caption, "Financial")
    If y > 0 Then
        If Len(Trim(txtAttributeChange.Text)) < 11 Then
            MsgBox "Financial ID must be 11 characters."
            txtAttributeChange.SetFocus
            Exit Sub
        End If
    End If

y = 0
y = InStr(1, lblAttributeChange.Caption, "Contract Number")
    If y > 0 Then
        If Len(Trim(txtAttributeChange.Text)) < 5 Then
            MsgBox "Contract Number must be 5 characters."
            txtAttributeChange.SetFocus
            Exit Sub
        End If
    End If
    
y = 0
y = InStr(1, lblAttributeChange.Caption, "Date")
    If y > 0 Then
        If Len(Trim(txtAttributeChange.Text)) < 10 Then
            MsgBox "Dates must be entered using the format of MM/DD/YYYY."
            txtAttributeChange.SetFocus
            Exit Sub
        End If
        
    '    MsgBox Mid(Trim(txtAttributeChange.Text), 3, 1)
        If Mid(Trim(txtAttributeChange.Text), 3, 1) <> "/" Or Mid(Trim(txtAttributeChange.Text), 6, 1) <> "/" Then
            MsgBox "Dates must be entered using the format of MM/DD/YYYY."
            txtAttributeChange.SetFocus
            Exit Sub
        End If
        
        DateChecker = IsDate(txtAttributeChange.Text)
        
        If DateChecker = False Then
            MsgBox "The date you entered is not a valid date."
            txtAttributeChange.SetFocus
            Exit Sub
        End If
        
    End If
    
    
MousePointer = 11

EnteredNothing:

dtaDatabase.DatabaseName = glbDatabasePath
dtaDatabase.RecordSource = "select * from DocNames where DocName='" & Trim(lstDocuments.Text) & "'"
dtaDatabase.Refresh

dtaDatabase.Recordset.Edit
dtaDatabase.Recordset(Trim(lstColumnName.Text)) = txtAttributeChange.Text
dtaDatabase.Recordset.Update

'lstDocuments_DblClick

lstDocuments_Click

MousePointer = 0

cmdChangeCancel_Click

End Sub

Private Sub cmdChangeAttributes_Click()
lstAttributes_DblClick
End Sub

Private Sub cmdChangeCancel_Click()
fraChangeAttributes.Top = 9000
fraChangeAttributes.Left = 9000
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdScheduler_Click()
frmScheduler.Show

End Sub

Private Sub cmdShowDetails_Click()

lstDocuments_Click
End Sub

Private Sub cmdSpecSectBrowse_Click()
fraSpecSect.Top = 0
fraSpecSect.Left = 0
fraSpecSect.Visible = True
End Sub

Private Sub cmdViewPages_Click()

lstPages_DblClick

End Sub

Private Sub Form_Load()
Me.Height = 5775
Me.Width = 9960

MousePointer = 11
'Global glbDatabasePath As String
'Global glbDocumentsPath As String
lstDocuments.Clear
lstAttributes.Clear
lstPages.Clear

dtaDatabase.DatabaseName = glbDatabasePath
dtaDatabase.RecordSource = "select distinct DocName from DocNames where Completed='N'"
dtaDatabase.Refresh

Do Until dtaDatabase.Recordset.EOF
    lstDocuments.AddItem dtaDatabase.Recordset("DocName")
    dtaDatabase.Recordset.MoveNext
Loop

MousePointer = 0

dtaSpecSect.DatabaseName = glbDatabasePath
dtaSpecSect.RecordSource = "select * from SpecSect order by OrderBy"
dtaSpecSect.Refresh

lstSpecSect.Clear
Dim filler As String
Dim DaNumber As Integer

Do Until dtaSpecSect.Recordset.EOF
    filler = Space(10)
    DaNumber = Len(dtaSpecSect.Recordset("SpecSectNumber"))
    'MsgBox Str(DaNumber)
    filler = Left(filler, 10 - DaNumber)
    lstSpecSect.AddItem dtaSpecSect.Recordset("SpecSectNumber") & filler & dtaSpecSect.Recordset("SpecSectInfo")
    dtaSpecSect.Recordset.MoveNext
Loop

End Sub

Private Sub lstAttributes_DblClick()

Dim DaMaxLength As Integer
Dim zzz As Integer

zzz = 0

Do Until zzz = lstAttributes.ListCount
    If lstAttributes.Selected(zzz) = True Then
        GoTo OK
    End If
    
    zzz = zzz + 1
    
Loop

MsgBox " Please select an attribute to change before clicking this button."
Exit Sub

OK:

fraChangeAttributes.Top = 2400
fraChangeAttributes.Left = 3240

MousePointer = 11

zzz = 0

Do Until zzz = lstAttributes.ListCount
    If lstAttributes.Selected(zzz) = True Then
        
        lstHumanName.Selected(zzz) = True
        lstColumnName.Selected(zzz) = True
        lstMaxLength.Selected(zzz) = True
        lstAttributeValue.Selected(zzz) = True
        
        lblAttributeChange.Caption = lstHumanName.Text
        txtAttributeChange.Text = lstAttributeValue.Text
        DaMaxLength = lstMaxLength.Text
    End If
    
    zzz = zzz + 1
    
Loop
 
MousePointer = 0

txtAttributeChange.SetFocus
txtAttributeChange.MaxLength = DaMaxLength

Dim DaStartingPoint As Integer

DaStartingPoint = InStr(1, lblAttributeChange.Caption, "Spec. Sect")
If DaStartingPoint > 0 Then
    cmdSpecSectBrowse.Height = txtAttributeChange.Height
    cmdSpecSectBrowse.Width = txtAttributeChange.Height
    cmdSpecSectBrowse.Top = txtAttributeChange.Top
    cmdSpecSectBrowse.Left = txtAttributeChange.Left + txtAttributeChange.Width - cmdSpecSectBrowse.Width
    cmdSpecSectBrowse.Visible = True
Else
    cmdSpecSectBrowse.Visible = False
End If


End Sub

Private Sub lstDocuments_Click()
Dim zzz As Integer

zzz = 0

Do Until zzz = lstDocuments.ListCount
    If lstDocuments.Selected(zzz) = True Then
        GoTo OK
    End If
    
    zzz = zzz + 1
    
Loop

MsgBox " Please select a document before clicking this button."
Exit Sub

OK:

MousePointer = 11

lstAttributes.Clear
lstPages.Clear
lstHumanName.Clear
lstColumnName.Clear
lstMaxLength.Clear
lstAttributeValue.Clear
 
Dim HoldTheApp As String

Do Until zzz = lstDocuments.ListCount
    If lstDocuments.Selected(zzz) = True Then
        dtaDatabase.DatabaseName = glbDatabasePath
        dtaDatabase.RecordSource = "select Application from DocNames where DocName='" & Trim(lstDocuments.Text) & "'"
        dtaDatabase.Refresh
        
        HoldTheApp = dtaDatabase.Recordset("Application")
     End If
    zzz = zzz + 1
    
Loop


dtaDatabase.DatabaseName = glbDatabasePath
dtaDatabase.RecordSource = "select * from ColumnInfo where ApplicationName='" & HoldTheApp & "'"
dtaDatabase.Refresh

Do Until dtaDatabase.Recordset.EOF
    lstHumanName.AddItem dtaDatabase.Recordset("HumanName")
    lstColumnName.AddItem dtaDatabase.Recordset("ColumnName")
    lstMaxLength.AddItem dtaDatabase.Recordset("MaxLength")
    dtaDatabase.Recordset.MoveNext
Loop


zzz = 0

dtaDatabase.DatabaseName = glbDatabasePath
dtaDatabase.RecordSource = "select * from DocNames where DocName='" & Trim(lstDocuments.Text) & "'"
dtaDatabase.Refresh
    
Do Until zzz = lstColumnName.ListCount
    lstColumnName.Selected(zzz) = True
    lstAttributeValue.AddItem dtaDatabase.Recordset(Trim(lstColumnName.Text))
    zzz = zzz + 1
Loop

Dim filler As String
filler = Space(25)

zzz = 0

Do Until zzz = lstColumnName.ListCount
    lstHumanName.Selected(zzz) = True
    lstColumnName.Selected(zzz) = True
    lstAttributeValue.Selected(zzz) = True
    lstAttributes.AddItem lstHumanName.Text & Left(filler, 25 - Len(Trim(lstHumanName.Text))) & lstAttributeValue.Text
    
    zzz = zzz + 1
Loop

dtaDatabase.DatabaseName = glbDatabasePath
dtaDatabase.RecordSource = "select FileName from FileNames where DocName='" & Trim(lstDocuments.Text) & "'"
dtaDatabase.Refresh

Do Until dtaDatabase.Recordset.EOF
    lstPages.AddItem dtaDatabase.Recordset("FileName")
    dtaDatabase.Recordset.MoveNext
Loop


MousePointer = 0

End Sub

Private Sub lstPages_DblClick()
Dim zzz As Integer

zzz = 0

Do Until zzz = lstPages.ListCount
    If lstPages.Selected(zzz) = True Then
        GoTo OK
    End If
    
    zzz = zzz + 1
    
Loop

MsgBox " Please select the page you wish to view before clicking this button."
Exit Sub

OK:

Dim retval
    Dim ImageToGet As String
    Dim x As Integer
    x = 0
 
                dtaImages.DatabaseName = App.Path & "\images.mdb"
                dtaImages.RecordSource = "ImageList"
                dtaImages.Refresh
                
                Do Until dtaImages.Recordset.EOF
                    dtaImages.Recordset.Delete
                    dtaImages.Recordset.MoveNext
                Loop
                
                If lstPages.Text = "" Then
                    Exit Sub
                End If
                
               ' File1.Path = lstFilesInDocument.Text
                
                Do Until x = lstPages.ListCount
                                                 
                    If lstPages.Selected(x) = True Then
                      
                        ImageToGet = glbDocumentsPath & Trim(lstPages.List(x))
                        dtaImages.Recordset.AddNew
                        dtaImages.Recordset("ImagePath") = ImageToGet
                        dtaImages.Recordset.Update
                        dtaImages.Refresh
                    End If
                
                x = x + 1
                
                Loop
                



'For I = 1 To 300000
'Next I
                
'MsgBox "Look at images"

cmdLaunchViewer_click

End Sub
                    
Private Sub cmdLaunchViewer_click()
             
Dim retval
              
retval = Shell(App.Path & "\YEIViewAll.exe", 1)



End Sub

Private Sub txtAttributeChange_LostFocus()

txtAttributeChange.Text = UCase(txtAttributeChange.Text)

End Sub
